
TPHNDLR 
LAB,,FUNCT 
ISSUE 
$ FUNCT 

■BEL—— 


MTCON 

T PINT,TPINIT 
TBKSP 

TFWSP------- 

TREAD 
TREWIND 

TSBPFM. 

TSFPFM 
T STATUS 
TWITE 
TWFM 

TXSTART- 

8 III 7 
8IT18 
Q IT 2 0 
8 ITS 1 
8ITZ2 

.8IT23. 

DIO 

IOCL..--- 

IOCL8IT 

FLAGS 

«e-crNweeT— 

OCTPACK 
TIMEKILL 
.TTMSET. 

TNUMLIST 

TXMP- 

TXNE 

TXNR 

TXPV 

UNCON 

OPMSGX 

o.*. . 

1 

2- 


1*2 + 0 
*2-28— 
8 ITS 1 
8IT2Q 
0 

7 7740 
7 7733 


-o 

0 

5 000 

.1. 

IMPURE 


103 

4008 ... 

1 0008 

20008__ 

4 00 0 Q 
200008 
-I MPURE ~ 
ALCNT+IMPURE 
IMPURE 

i MPURE- 

IMPURE 

I.MPURE 


ROUTTNE T 0”CO N N'EC*T~TO.CO NT R O LLERS 

ROUTINE TO PACK OCTAL-INTO BCD 


MEMOR YPARITY E RR OR O N.WRITE 

NORMAL END RETURN 

NOT READY RETURN 

PRO T ECT VIC LA TICN RET U R N 

ROUTINE TO RELEASE CHANNEL 


INITIAL ERROR COUNTER iSSH WORD) 

END OF DATA BIT IS 21 

FILE.MARK. READ .BIT.. IS.20. 


LOAD POINT 8IT IS 22 


ALLOW FIVE SECONDS ON A CHANNEL 

CLOCK.AT START.OF TAPE.I/O. 

WORD FOR UNIT STATUS 

RIGHT 3 B ITS A RE DENS ITV CODE. 

0 - 200 QPI 

1 ~ 556 8PI 

2 .- 8G0 BPT— 

3 - UNSPECIFIED 

81T 3 SEZ REVERSE READ SET 

BIT 8.SEZ.READING ..... ... 

BIT 9 SEZ WRITEING 

BIT.10.SEZ BACKSPACING FOP.REREAD 

BIT 11 SEZ BACKSPACING FOR REWRIT 
81T 13 SEZ LAST OPERATION IN 8INA 

PARITY ERROR COUNTER 
STARTING ADORESS SAVED HERE 

TEMF.FOR'.SAVING UNIT INDEX... 

RECORO LENGTH STOREO HERE 


04030640 SELECT DENSITY FUNCTION CODES 

7,NN MT=X F S=SSSS TM=TAPENUMa 

T in. 0 > . - < > 


MTERR+8 
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. 0 0014 P “ ~~ ". 6 7+0 04 MTS TATP EQU .MTERR+3 

0 0 070 P 67 + 005 TNUMP £QU,C M TERR+2 0 

- _ 0 0 034 ....6 7+0 06 MTEPRL -EQU,C-* -MT ERR-- 



o 

o 





o 

: O 

o 

o 


q 2 

o 

10 

o 9 

O 0 

o 

O' 

4 

Q,. 


o 


LENGTH.OF MESSAGE IN CHARACTERS 


,CD 

:: 'o 

sO 

9 o 

eO 

6 

O 

0 i 

,o 

Z l 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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71 

72 

73 


TPHNDLR 

>r if if if if >f-<f -<f -f X if X X XX XifX X X -fX XXX -X if X if X if X X if XX X X X XX if X ->f -If-?-if 


o 

o 

o 

o 


74 

75 

76 

77 


-V- if 

x» 
xx 
^ * 
-XX 
-X if 


ROUTINE TO INITIATE MAGNETIC TAPE OPERATIONS. 

TAPE CONTROLLER MUST NOT BE BUSY ON REQUESTED CHANNEL 

ENT br*”WTT H ——~—— ■ ' 

IMMEDIATE RETURN ADDRESS IN INDEX THREE 


v 

if. 

if 

if 

if 

if 



78 

if. if. 

REQUEST ADDRESS IN INDEX TWO 

* 



....7 9. 

.“4F¥. 

WORD COUNT IN INDEX ONE IF APPLICABLE 




80 

-84. 

82 

83 

“8-4- 

85 

86 
8 7 
88 
-89 


x x 
**. 


if if 

x if 

* 
V- * 

■* # 


UNIT NUMBER IN OPCODE OF Q 

-STARTING.ADDRESS.IN.Q.REGISTER.IF.APPLICABLE. 

BIT 23 OF A SEZ BINARY 

LOWER CHARACTER OF A SELECTS DENSITY 

READ, AND THE STATUS BITS EOT, FF, BRP, FNR, AND LP8 » 

INDEX THREE CONTAINS THE RETURN ADDRESS * 


* 

.*. 


* 




* 

* 




o _ 

-- Q-0^^6 — VW-frWr'rS- 

00021 47200052 

00022 40 00 0002 

p 

p 

- 9-2--—* 

93 

94 

"T-Pi-NT'P— 

-ST-I--— 

STI 

ST A 

—RETU RNtX3 ' 
FUNCTION,X2 

8INDEN 

——S'A’VE' THE- RETURN "AUBRE-CS™-—*..-....— 

SAVE FUNCTION 

SAVE BINARY AND DENSITY INDICATOR 


.00023.r2T3777o5' 

00024 17620000 

. 00025 .. 4.0-00-0.-0-01-. 

.g... 

o ^ 

96 

.... 9.7 ... 


SR A 

ANA 

ST A 

-10 

S8INBIT 

S TAT AB .. 

SET BINARY BIT INTO STAT A3 

..THIS IS . FIRST SIT TO GET SET ....---..._ 

O “.~ 

00026 14 40 0 0 0 0 

00027 13000006 


98 

99 


ENA , S 
SHAQ 

0 

6 

GET UNIT NUMBER TO A 

o. 

.0 0 0 3 0 40 00 0 0 0 b 

00031 13000003 

00032 44000141 

p 

iO'8'*“ ' " 

101 

10 2 


si A 

SHAQ 

SWA 

T PI .. .. 

3 

PFPA 

. ."“'S'A VE'-UNIT"' NUNSE'R"'* .. ..........~ .. 

WHICH PAGE FILE SECTION TO A 

SAVE FCR INPUT/CUTPUT COMMANDS 


00033 14400000 

00034 40000006 

...0 0Q35.1.3-0-0-0.0-17- 

p 

10 3 

104 

.1C 5. 


mwys . 

STA 

.SHAQ .. 

.¥ . ... 

TPRLNG 

.i_5_ -. 

.PREVENT TROUBLE.G'N.AIA... 

FOR STATUS REQUEST 

...ST ARTING ADDRESS TO - A.-. 

o 

00036 44 00 0143 

00037 40 000004 

nnni. n n,,. 

p 

p 

106 

10 7 


SWA " 

STA 

TPOPCl 

TP8GNA 

SAVE BEGINNING ADDRESS 

o. 

UllUHtJ PolLuyuu 

00041 44000142 

. 0 0 0 42_jj 07001.4,6 

p 

.p_ 

Xu 0 

10 9 

110 


Ax A. 

SWA 

RIJ 

TPQPMi 

TPCQN 

ADD v% 0 R O COUNT 

STORE END ADDRESS 

CONNECT TO UNIT 


00043 04000001 

00044 77200002 

.- -0 0 04 5.—Q1 00 012? 

p ___ 

ii imnnr 

in 

__ 112 _ 

“TRWtrr . 

TTSE 

EXS 

UJP 

IMPQRE+1,XO 

2,SENSE ' 

.X-PBUS-Y-.-. 

CHECK FOR BUSY 

o 

00046 

00046 53020022 

. .. . n n rw, v .y. n n n.nn n a • 

p 

D 

113 

114 

TWWD 

EQU 

TM A 

£? r A , . , , 

* 

CLOCK 


o __. 

UUUHf HuUuUtroo 

00050 47000373 

00051 00700243 

r . 

p 

p 

i • 3 ' 

11 6 
ii? 


b i A 

STI 

RT-J 

TPDELY, 0 

TPSLN 

sAVt !HESTARiTNGCLOCKVALUE 

RESET P LAG 

SELECT'INTERRUPTS AND MODE 

1 ■ 

0 005 2 01 0 0 0 0 0 0 


X 1 3 

'“TURUTTCN" 

'ujp. 

IMPURE 

. ~ CA LX A FPROP RTA T E RO UTIN £.~ 7..' '.7~ 

O ~. 

Q. 


— 

______ 




.. . . 



a 1 


o 9 


































A SSEM8LER/0S3 Vi.Q 10/02/74 2022 PAGE 


TPHNOLR 


4 






118+003 
.118+on u 

.¥¥~¥¥1T¥¥¥.¥¥.¥¥¥¥¥¥ 

¥ ¥ 

¥¥. 

¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥ 

ROUTINES IX RF TO 





lie +005 

¥¥ 

¥ ¥ ¥ ¥ ¥ ¥ or- ¥ 

¥¥ ¥ ¥ ¥ ¥ ¥ ¥ 

¥ ¥ ¥ ¥ ¥ ¥¥ ¥ ¥ ¥¥ ¥ ¥ ¥ ¥ 


0 0 053 

P 


123 

TREAD 

EQU 

¥ 

0 005 3 
00054 
.00055. 

14700074 
14600400 
..0100 0136 

.P. 


124 

125 

.X2-6. 


ENQ 

ENA 

.it ip. 

.7 43 . 

READBIT 

T pto. 

n n ac c 

0 0056 

P 


126+001 

127 

TWRITE 

EQU 

¥ 

U U 0 5 b 

0 005 7 

0 0060 

14 70 0 0 76 
14601000 
77200004 



12 £ 

12 9 

130 


' ENQ 

ENA 

EXS 

7 68 

WRITBIT 

4 .SENSE 

0 0061 

.0 0062. 

.01000136 

0 0 062 
.14277777 

.P. 

P 

. x. 


...131. 

132 

.133. 

TPVL 

CTJP. 

EQU 

ENI 

..-.t pro.... 

* 

T XPV vX 2 

00063 

01000165 

p 

o. . ...... 


134 

134+001 

T i»? C.-kA, 

UJP 

o n i i 

I GRID 

. ¥-"-•< 

00064 

00065 

.U U u oh. 

77200004 

01000067 

. r . 

p 


.loy. 

136 

137 

rnrn 

ty U 

EXS 

UJP 

4,SENSE 
* +2 

0 0 066 
00067 

.0100 0 0 62 

14600015 

P 


13 8 

138+001 
.13 8+0 02. 


.U JP . 

ENA 

.TPVL. 

153 

00070 

0 0 070 

0 0 700 130 

p 

p 


140 

140+001 

TPNFR 

EQU 

RTJ 

SEL 

00071 

00072 

U 0 J 71” 
14200073 
01000505 

p 

p 

p 


• 140 + 0*0 2* 

140+003 
140+004 

.T PNPkQ 

' .ECU... 

ENI 

UJP 

¥ +2,X2 
TPTIMUP1 

000 73 

.0 0 073' 

47000043 

■p.. 

p 


.140+005 

140+006 
.1.4 a± OCX. 

.TPNFRI. 

.EQU. 

STI 

-.*. ~v .... 

TWWDljXO 

00074 

n n n 7 £ 

00074 

14600020 

p 

o 


140+008 

14Q+009 

i /• 1 

TPNFR2 

EQU 

ISSUE 

* 

( 203) 

.. .». n..rLXL.LQ. Kl^_V-O - ■ 

U U J t D 

00077 

3+iJUl45 

01077777 

.r 

X 


* — V. 

144 

144+0 0 1 


LL i 

UJP 

. , 'Kti'bliN}Xz... 

UNCON 

0 010 Q 
.00101. 

0 0100 
14600013 
.Ci-O0C..O7a... 

.p... 

p._. 


.145 

146 

.14 6+0 01. 

T SFPF H 

EQTJ 

ENA 

_UJP-_ 

130 

...TPNFR_' 

fi f) A FI O 

00102 

7 7 O i) A n C n 

p 


146+002 

148 

4 it 

TSBPFM 

EQU 

.r~.. W..C!*..,. 

* 

_ __ jus n, r5.« c* k t c c. 

u ulu2. 

00103 

0 010 4 

ft CUVUCU 

01000406 

14600014 

p 


150 

151 


t X'S 

UJP 

ENA 

TPRELS 

143 

00105. 

0100 0 120 

..n 01Q6 

.. 

J3L .. 


X, 3 P 

152+001 
..15.3 __ 

. XEASP .- 

..UJP 

_EQU.. 

FIfs , ISH 

* 

. 00106“ 

00110 
n fi i i i » 

14600041 

14600012 

c 


154 

155 

—..4-.q. . sax • fuw-~ 


ISSUE 

ENA 

(418 ) 

128 

U U X X X 

Si uU u H r 0 

00112 

r 

P 


i ^ 9 + li u i. 

155+002 

157 

TREWIND 

Ua r 

EQU 

- ~-r r N f- 

¥ 

00X12. 

0 0114 

.14 60 0 010 

01000445 

p 


.157+001. 

157+002 

..15X.+.0.0..3 . 


.ISSUE. 

UJP 

. ^ . (10 3) . . . . . 

TSTATUS 

00115 

■ n n -t i -cu-.*.- 

.0 0115 

77200020 

.p. 

a . , 


16 0 

161 

•■•"1*61+ 0*81~ 
161+002 
163 

.TBKSP. 

EQU 

EXS 

* 

209,SENSE 

..T f> t A T' i i C . ..,. 

U li l xb 

00117 

U ruS U 4 4-5 

14600012 

r 



U J P ~~~ 

ENA 

1 U * A 1 U b 

.128. 

00120 
.00121. 

.0OX2Q. 

00700130 
01 no no ?3 

.p.~~. 

p 

JL _ 


..164.:... 

165 

. ... 165 + 0.01. 

-FINISH. 

—EQU.. 

RTJ 

.U..J.R... 

SEL 

TPNFRI 

an ip? 

00122 

It 7 9i"l fi t* 7 •? .. 

P 

O 


165+002 

167 

TP8USY 

EQU 

■£2JX T . - 

¥ 

..-r. o \ *r i... v -, V O 

U UluL 

00123 

f L U u 0 f 0 

01000074 

r — 

p 


ib/TUUl 

167 + 002 


j Jr 

UJP 

^ y ^ X d 
TPNFR2 


¥ 

PERFORM THEVARIOUSALLOWED FUNCTIONS* 

* 


ENTER.CODE FOR READ 

ENTER BIT FCR READ 
GO GIVE INPUT -— 


ENTERCODE FORWRITE 
C HEC K.FOR.WRITE.EN AB LE 


GIVE.PROTECT.VIOLATION 

GET RIO OF UNIT 


CHECK FOR WRITE ENABLE 
OKAY 

.NAUGHTY ~ " 


COME HERE FCR SAD FUNCTIONS 
SPECIFY RETURN ADDRESS 


DON*T LET ANYONE ELSE THRU. 


LOAD THE RETURN ADDRESS 
RELEASE CHANNEL 


SELECT SEARCH END OF FILE FORWARD 


CHECK.FOR.LG AC POINT—— 

SELECT SEARCH .END.OF FILE.BACK WAR 


SELECT REVERSE READ 
SELECT BACKSPACE 


SELECT.REWIND. 

RETURN AND GIVE. STATUS 


CHECK FOR LOAD POINT 


SELECT.BACKSPACE 

ISSUE FUNCTION 


SAYWEWERE DELAYED 
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0012453010022. 

00125 03500133 P 

0 0126—7710 C 0 0 0.-.- 

00127 01000124 P 

00130 01000000 

•0 01'3'lr—44 0 0“&±26”P“ 
00132 14100005 

00133 53020022 

00134.02500126.P 

00135 01000164 P 


.f^ * ¥«¥¥¥¥ ' 

167+005 *+ * 

167+0 06 *06...ROUTINE- TC PROCESS SELECT FUNCTION ON THE CONNECTED DRIVE * 

167+007 ** ENTER WITH THE SELECT FUNCTION IN THE LOWER 6 BITS OF A * 

167+008 ** * 

¥•¥ ¥«¥'¥ - # # ¥ ¥ ¥ sy^ if. ¥-¥ jp-q-jju jy Jf & y ¥-¥ ¥¥ ¥ f 


175 .REJ . TMQ. CLOCK. 

176 AQ J,NE NEWCLK 

177 -I SUF--SEE---IMPURE, SELECT 

178 UJP REJ 

179 SEL UJP IMPURE 

, ±g .. 0 __^— —- 

181 ENI 5,XI 

182 NEWCLK TMA CLOCK 

183 .IJD.I SUF ,Xl 

184 UJP UNERR 


LOAD.THE VALUE CF THE.CLOCK AND 

SEE IF IT*S COUNTED UP YET 

ISSUE THE.I/O FUNCTION-—-- 

BAD NEWS, REJECTED 
TO ISSUE SELECT COMMANDS 

SAVE FUNCTION CODE--—- 

ENTER COUNT OF MILLISECONDS 
LOAD REFERENCE CLOCK VALUE 

JUMP.IF.STILL LIFE LEFT 

SO SORRY CHARLIE 









189 

190 

¥ ¥ 

¥ ¥ 




¥ 

¥ 







191 

192 

.. AQ 3 .... 

¥ ¥ 

-¥ ¥ 

.¥.¥. 

ROUTINE TO ISSUE THE I/O COMMAND TO THE TAPE UNIT 

ENTER WITH 

S.T4T.IIC flTTQ TMA D PC . 

¥ 

¥ 

¥ 







194 

195 

a n a 

¥ ¥ 

. ¥¥ 


OP-CODE IN LOWER 
CHANNEL NUMBER IN 

CHARACTER POSITION OF Q REG 
CHANNEL INDEX 

¥ 

¥ 







19 b 

197 

198 

¥ ¥ ¥ 

.*¥¥¥¥¥¥ ¥¥ ¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥ ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥ 




. .Q.Q--1-3-6- 

p .. 


_ 2 - 0-1 . 

.;j:.gX...Q.. 

.EQ„U.. 

¥ 





00136 

00137 

35000001 
40 00 0 001 

P 

P 

n n 4 / 0 n 

202 

20 3 


SS A 

STA 

STATAB 

STATA0 

SET.A INTO STATUS 

STORE STATUS BACK 




0 0140 

0 0141 
00142 

43000610 
14 60-0000 
74000000 

p 

00142 0 

20 4 

2 0 6 

20 1 

PFP A 
TFOPM1 

SQCH ' 
ENA 

74 

.T POPMl.... 

IMPURE 

IMPURE,IO 

STORE QP-OOQE 

WHICH PAGE FILE PORTION 

I/O COMMAND WCRD 




0 0143 
00144 
-. 00445. 

0 0 40 13 004. 

01 GO 0142 
.04 04-0- 0 0 0 - 

p 


20 8 

209 

—210. 

TPCPCI 

.-.RETURN 

00 

UJP 

—UjR--.-.-. 

IMPURE, 4 

TPOPM1 

- -IMPURE. 

SU 8 INSTRUCTION WORD 

REJECT 

- RETURN-- 




o 
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00146 01000000 

.00147.54 10 0005 P 

00150 16100000 

00151 54200145 P 

00152 14711610 

00153 14300153 P 

00154 01077777 X 

00155.00700 225.p 

00156 01200000 

.0015 7.47200145.P 

00160 20000005 P 

00161 03300165 P 

0 0162 77 20 0 0 01 

00163 01000146 P 


21 4 
215 

.216. 

21 7 
218 

219 . 

220 


4 44 4 444 44 4 4 4 4 44 9 *■»■*.*■* ¥* 44 4 4 4 *-»'#•»****•»*** ***#•**•**■»■*•*■»♦■*■» * 

•if-if ff 

.’........... _ . . _ . : . 

** ROUTINE TO CONNECT TO TAPE UNITS» * 

4 4 « 

—•.-.—>—-*——.. .——.>..~~~..■..—- — .—■-——- if. 

4 4 4 44 44 V 4 4 4 4 4 44 •¥■**•■¥ V *•¥•* 4MMf ¥ 44444444 ** -if Af-AMf * -f Af 44444444444444444444 


223 T PC ON UJP IMPURE 

.224.-.- - - LQI..T PI , X1--—.- LOAD UNIT -NUMBER . 

225 MTCON XOI IMPURE,XI MAKE INTO CONNECT CODE 

226 LDI RETURN,X2 LOAD THE RETURN ADDRESS 

22 7 -....ENTER LIMITCN.CHANNEL T IME — 

228 ENI *,X3 

229 UJP CONNECT CALL ROUTINE TO CONNECT TO UNIT 

.23 O'.'. RTJ . CHAN I NT. CALL.HERE.ON.CHANNEL.INT ERRUPT 

231 UJP 0,X2 CHANNEL 3USY RETURN 

232 .STI..-RETURN,X2..—.SAVE.THE RETURN.ADDRESS. 

233 LOA TPI CHECK FOR INTERRUPT NOT EXPECTED 

234 AZJ,LT T GRID TRY TO GET RID OF IT 

235 ~ .”-±rS-&N-Se————— CHECK FOR READY — 

236 UJP TPCON 


A/.444 4444 44 444444444 444444444444444444444 44 4444 4 44 444444 44 

236+003 ** * 

236+0G4 ** THIS ROUTINE WILL RELEASE AMD DISCONNECT THE SELECTEO DRIVE * 

. 23 6+0 0 5-*-*"-".Gt E A RING' ~ A L L”T NT ERR U P T' SELECTS-'AND' STATUS ~B E FORE E'XTT-* 

236+0 96 +* * 

235+007 ** CALLING SEQUENCE — * 

.-236 + 028.**. . .... . 

236+009 ** ENI <RETURN A0QRESS>,X2 * 

. 23 6+010 **_ ...UJP- .TGRI-0 ---RELEASE AND. CLEAR DEVICE.... —Jt 

236+011 ** * 

236+012 ** -- OR — * 

■.• 23 6+ 0 T3" .■ -.. ■ ■ .... .. ■ ..—... •■ ■■ ..—■■■—...—...... • ..—...—..-. 

236+014 *■* UJP UNERR UNIT NOT READY * 

236+015 ** (RETURNS TO TXNR IN UIO) * 

. 235+016 ** ."...* 

4 4 44 4 4 44 ¥¥ 444444 4 44 4 4 44444444444 4 4 444444 44 4444444 444444 4444444444444444444 


00164 P 23 S UNERR EQU * 

0 0164 14277777 X. 24 0 • -—ENI.T XNR, X2 

00165 P 241 TGRIQ EQU * 

00165 47200203 P 242 STI TGRAD,X2 

0 0 IBS' .1420 0’0 03.*.. 2“43~~---ENT-33'TXZ" . 

00167 21000204 P 244 LDQ TBFUNC 

........00.1.7-0. B— .....:__2-45_I.GMXT__i_£QJU_ __*_ __:__ 

00170 13000006 246 SHAQ 6 

00171 42000753 P 00172 3 247 SACH *+7 

00172 7710 0000 248 .. SEfc—-- —f^tpyp-erS-El E C T 

00173 0260 0170 P 249 IJO TGNXT,X2 

00174 02600170 P 250 IJO TGNXT,X2 

0017 5 47 O O'Q'O 'OT P. ; -25T”.~ ST I--STATAB , 0. 

00176 14477777 252 ENA,S 777778 

00177. 42-0.0 -0.-Q-24. P .0-0-0-05.0-_2-53 _-_SACH.ZRI. 

00200 14200202 P 255 ENI . *+2,X2 

00201 01000077 X • 256 UJP UNCON 

0 0 202. 54200145 P- —--25 7 . ————--t6f---R€W*RNf*2- 

00203 01000000 258 TGRAD UJP IMPURE 

00204 21232505 259 TBFUNC OCT 21232505 

._...—---—...25Q-“--■-^-. • —-— 

261 * 

.......;_2.6.2_«L_____ ...._______ 

263 * 


NOT"READY.RETURN 

SAVE UIO RETURN ADDRESS 
COUNT OF FUNCTIONS 
LOAD FUNCTIONS TO ISSUE 


STORE NEXT FUNCTION 


ISSUE ALL FOUR 

.CLEAR.STATUS'.:. - ... 

. SAY.NOTHING.DO ING....... 

ENTER RETURN ADDRESS 
RELEASE CHANNEL 

LOAD - THt~R ET URN-A'D DR ESS---- 

ERROR RETURN 
FUNCTION CODES FOR 

REL E ASE.READ Y.AND.NOT".BUSY I N T 

RELEASE END OF OPERATION INT. 

.RE L E AS E.A BN GR it A L. E NO.INTER RUPT. 

SELECT CLEAR 
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o 

o 

o 

o 

o 

o 

■O' 

o 

q 2 

Cf 

I o 

o 9 

o 8 

o s 

o 5 


o ;: 


TPHMDLR 

.... 


264+002 ** 
264+ 0 0 3.**- 


THISROUTINE.HILLPROCESSCHANNELINTERRUPTSGNTHE DRIVE 


264+004 ** 

■if -f -? V- -V V }f-if-V- ■* ¥¥-•¥■■¥■ *.*■¥* *fMMMMf •¥■*IMf »»*#»»»»»»*♦ ♦ ♦ *¥¥-**¥■■¥*•*¥■ 


00205 P 

267 

MPCHK 

EQU 

¥ 



0 0 205 1760 0 010. 

...26 8. 


~.ANA. 

1 03 

, CHECK FOR MEM 

CRY PARITY ERROR 


00206 
0020 7- 
00210 
0 0211 

00212 

00213 

.00214 

0 0215 
0 0216 
00217 
00220 
0 0221 
00222 


03000212 
20.00 0 0 01 
17 60 1000 
03177777 

.00212 

77550000 

42001063 

5 3 020000. 

15400003 
120 7 7775 
176/7777 
31000004 
40 00 0 0 06 
7710 0 020 


0 0 2i4 3 


269 

.270 

271 

272 
“273“' 

274 

275 
”276"" 
277 
-2-7-i- 


G IV I NT 


27 9 
280 

-281. 

281+001 


AZJ,EQ 

LDA.-. 

ANA 

AZJ,N£ 
EGU 
CIA 
SACH 
TMA 
IN A, S 
--SH-A——. 


GIVINT 
STAT A 6 
WRIT 6 IT 
TXMP 

~¥—— 

*+7 


.IMPURE 

3 

^ o 


ANA 
SBA 
ST A 
SEL 


777778 
TP3GNA 
TPRLNG.- 

2 03,SENSE 


JUMP IF NOT MEMCRY PARITY 

CHECK.'For"~WR'iT£' 

BAD NEWS 

CHANNEL NUMBER TO A 

GE T.BE'GTN.AOURESS" 

M A KE.W O R 0—A C D R E S S- 


SUBTRACT STARTING ADDRESS 
SAVERECORD LENGTH 
SELECT READY NOT BUSY 



0.0 22 3 

01000234 P 


281+002 


...UJP. 

CHTRU 8 . 

BAD NEWS 






0 0224 
00225 
.—0-0-226— 

.010"0 0 : ”50'5.P. 

01000000 

—44.0-0-0-4-0-4—P.- 


.28T+W3. 

284 

9 ^ e; 

CHANINT 

UJP . 

UJP 

SWA - 

TPTiMUPi . 

I MPURE 

PARFLAG 

GO SET.TIME.LIMIT ..... 

CALLED ON CHANNEL INTERRUPT 

SET ERROR INDICATORS 






00227 

00230 

. 0 0231"" 

00232 

00233 

54200225 P 
47200145 P 


286 

28 7 
-. 28 £ 

289 

290 


L01 

STI 

■■“•AZJtEQ. 

ASG 

UJP 

CHANINT, X2 

RETURN,X2 

'GIVINT.-.. 

4008 

MPCHK 

LOAD THE RETURN'ADDRESS 

-JUMP OFF IF-NC ERRORS.-... 

SKIP IF CHANNEL OVERTIME 

GO SELECT, INTERRUPT AND SCRAM 






03 00 0 212 P' 
05500400 
01000205 P 








00234 
00235 
_oo 236. 

"T4477777. 

42000024 P 
.-47177 777 X. 

00005 0 

.291. 

292 

. 2 -Q. 2 .+-O- 0 - 1 — 

“crarRD's. 

.ENK7S .. 

SACH 

- .ST I -. 

. 7177 TB ..... 

T PI 

-I-OG-L-. XI-. 

SAY NOTHING DOING 

SAVF f.KANNFl NUMBER FOR USF LATFR 






0 02 37 
00240 
00241“ 
00242 

14677777 X 
35077777 X 

■40000240 X" 
01000164 X 


292+002 

292+003 

292 + 004 “ 

293 


ENA 

SS A 

ST A 

UJP 

IGCL3IT 

FLAGS 

FLAGS 

TXNR 

SIT TO SET 

SET INTO SCHECULR FLAGS WORD 

AND RESTORE IT . 

GIVE NOT READY RETURN 
















- 29 7 . 

» *y ■» »■»» »» ^ » »»»-s 








298 

299 

299 + 001 ' 
302 
3 C 3 

30 4. 


^ 

** ROUTINE TO RELEASE INTERRUPTS AND SET STATUS FOR MOTION * 

ff ¥ * 

, Jf 

* * * * - f . * ^ ?nnPF¥ -v-ww 'w 


0 0 243 
00244 

01 00 0 000 
14-600021 


30? I PS LN 

3 0 8 

.. “5 ,“i “ . 

UJP 

ISSUE 

IMPURE 
( 218) 

RELEASE READY AND NOT BUSY INT. 

■ RELEASE t 0 P INTERRUPT 

.LOAD.FUNCTION.CODE.FOR.DENSITY._ 


UllcHD 

00250 

00251 

14 -oUU J/J 
54100002 
22 40 0 040 

P 

D 

W U J ■ 

310 

00010 G 311 

'lobuh ' " 
LOI . 
LACH 

-'( 239 ) 

BINDSN,XI 
QENTAB,XI 


... 0 0 '25"2. 

00253 

_ _...; .00254. 

"”G 0 70 QT 3 T 0 . 

20000001 
. 12 .. 0 , 7 -777.4 . 

.P.. 

P 

..“.3T2..... 

312 + 0 G 1 

...-.31, ?+on z ...—.. 

.RTJ.“ 

LDA 

. SH-A.-.. 

. SEL ‘ 

STATAB 

GET DYNAMIC STATUS 
.RR 8 IJ TO BIT0 0 


Q 0 25 5 

G 025 6 

17600001 
15 60 0 040 


312+003 

312+004 

ANA 

IN A 

.........._ 

1 

4 03 

MASK TO 1 BIT 

MAKE INTO A 408 OR 413 



0 0 257 0 □ 70 0 130 P‘ 


“318 


“R-T-J- 


S EL- 


00260 

21000001 

P 

319 

LDQ 

STATAB 

00261 

1/720000 


320 

ANQ 

S3INSIT 

00262" 

14 40 0 0 02 


. 321 . 

... EN'ATS . 

. 2 . 

00263 

04500000 


322 

QSE, S 

0 

_ _ 0 0264.: 

.14 40 0 0 01 


..... 3..2„3..'.. 

. ENA.S- 

1 

00265 

00 70 0130 

p 

32 4 

RTJ 

SEL 

00266 

01000243 

P 

325 

UJP 

TPSLN 


CHECK FOR BINARY 

"BCD.™. 


BINARY 

DONE 


* j* 4? 





















































■ ' % * * * *¥* *"* ¥ 4 * 4 


SECTION TO PERFORM ERROR RECOVERY OPERATIONS. 

ALCNT SPECIFIES HOW MANY RETRIES ARE TO BE HADE ON READ OPS 

IF A PARITY.ERROR OCCURS ON A WRITE OPE RATICN, ONE TRY IS 

MADE WITHOUT WRITING BLANK TAPE. 


■*•¥•*■$• V •¥••¥••¥* -* V- V--V W VV- VV- V-V- *-V- V->f ww # w -t-v-v ww wv-wv- vw 


EQU * 

, ex . s ___„^ .-.- CHECK.FOR' READY ____ 

UJP *+2 

UJP UNERR NOT READY 

COPY 'SENSE . GET.LAST.STATUS OF THE TAPE. 

SWA MTSTATUS SAVE IN CASE IT IS NEEOED 

.RTJ..-...TPSLN...—.-.—.--....—---.-.-.. 

ENA 1 UPDATE ERROR CCUNTER 

RAD ERRCNT FOR DISPLAY PURPOSES 

5S-H~—-“MErRK"'* — CHECK TO SEE IF TIME TO" QUIT * 

UJP NIRIN NOPE -- CONTINUE WITH OPERATION 

LDA BIT17 LOAD IRRECOVERABLE ERROR BIT 

RAD.:. TPPXNG ■ SET.INTO'WG R O'.RE TO RNE D.TO.010. 

UJP TPRELS OTHERWISE, SAKE RETURN 

.ECU...-. * .-._..-.-.:.-..-.—.-. 

LDA STATA3 GET STATUS FOR THIS UNIT 

ANA READSIT +WRIT8IT 

.. SHA __,-^ BREAD, EWRIT— 8TTS-— 

SSA STATAB SET INTO STATUS 

STA STATAB 

SHA 23-8 CHECK READ SIT. . . 

AZJ,LT EREAD THEN DC READ RECOVERY 

-SHA_2 4+-8-9_CHECK.WRITE.BIT--- 

AZJ,GE T STATUS OK IF NOT READ OR WRITE 

ISSUE (128) SELECT BACKSPACE 

-UJP TPNPR2 ——— 

EQU * 

LOA STATAB GET STATUS FOR THIS UNIT 

XQ A S3INBIT+RRBIT .~ RE VERSE PARITY A NO DIRECTTON 

STA STATAB 

-RTJ-..TPSLN___SELECT-.OPPOSITE^ PARITY..---- 

LOA STATAB LOAD STATUS BACK 

XOA SBINBIT +-RRBIT REVERSE PARITY AND DIRECTION 

STA.-S*TAT~A8...—SET 8ACK CORRECTirY~ 

ENA,S Q 

INPW,INT I0,CH8UF,CHBUF + 1 CHECK FOR WRONG PARITY 


UJP *-2 REJECT 

-UJP.-.RETURN..-.-----.RETURN.-. 

EQU * 

LDA STATAB LOAD STATUS FOR THIS UNIT 

ANA ,S -ERE'ADBTT-EWRITBIT—REMOVE E R R 6 R" T N DIG A TO R S"™ 

STA STATAB 

ANA READBIT CHECK FOR READ OR WRITE 

AZ J7RE TEED .~.‘JU M P ' I F "R EA D .... 

RTJ TPSLN GO SELECT INTERRUPTS 

LDA-_ERK_-__-CHECK.FOR-XIKE -TO -WRITE -BLANK.TAP 

ASG ALCNT*2+1 SKIP IF TIME TO SKIP BAD SPOT 

UJP TWRITE OTHERWISE JUST DO AGAIN 

•€f*A- : —fr-tewf-— --- 

STA ERK RESET COUNTER 

ISSUE (168) SKIP BAD SPOT 

'ENA.“.E WRIT BIT---------ERROR.ON.WRITE..—-*- 

RAO STATAB SET INTO STATUS 

JLLJLE—_-_XEMF.R2___-_-___.-. 

EQU * 

ENA SBINBIT ENTER BINARY INDICATOR 

-EX-S—”-2>&a-e-8T5&*S£-—©HECK* FOR PARITY E R R O'R——————— 

ENA,S 0 

SCA STATAB CHANGE MODE IF CKAY 

STA" ......STATAB.—-----—------—----:--—.— 

RTJ TPSLN GO SELECT MODES AND INTERRUPTS 

-UJP___TREAD.-...-.-_-----------__-.-_-_.-. 
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40 5 

40 6 

40 7 

1,4 if if. if if. if if if if if if if if if if if if 

"f if 
if if 

* * * * # * # # # # * # * # # * * * if 

# if# # # if ###### # ### if ######## if if ****** # ¥■# 

# 

if 




Q) 

<3 . 




40 8 

409 

- . 410 

411 

** ROUTINE FOR PROCESSING TAPE UNIT INTERRUPTS. * 

•V- >f ^ 

—*****.. -"""" - ... - — .*. • ..: .-.. - -..* . *. 

if if# Jfififififif if if if if if if if if if if if # if if if if if if if if if if if if if if if # if if if ********************** *JJfr;**** *** 

. 




. 00363 

00363 
77 730 o nn 

P 

411+002 

411+003 

T PI NT 

EQU 

VFD . 

if 

A12/DINT.. 

...ALLOW.NO.INTERFERENCE... 





o . 

0 0364 

47300145 

0 0 365 

P 

P 

411+004 

411+005 

TPINT0 

STI 

EQU 

RETURN,X3 
# 

SAVE RETURN ADDRESS . 





0 

..'Q-Q3‘65 “ 

0 0 366 
00367 

GO 70 01 46 
20 000474 
04000000 

P. 

P 

.....-4i'5~'.. 

415+001 

415+002 

T PI Nil 

RT J 

LD A 

ISE 

.. TPCON.*.......~... 

TPTIMRT 

IMPURE,X0 

€ 0 NNECT TO IN TERR U PTING UNIT ~ 
GET INTERRUPT TC KILL 

SKIP IF NOT A TIMED INTERRUPT 






....0 0370.. 

00371 

0 0 77 7777 
47 00 0 367 

0 0 37? 

""x.. 

P 

p.. 

‘ ..415+003. 

415+004 
. 4.1 5 + n n 5 

. TPT KiTP 

RT J .~.“ 

STI 

.TTMEKILL. 

T PINT 1 » X0 

.... *...... 

KILL THE INTERRUPT IF HERE 
CLEAR TIMED INTERRUPT FLAG 





G . 

0 037 2 
00373 

- *y • W, ./ / '“///, y/ v A H 'PT7 1 4 , .. 

47300043 

0 4 00 0 0 00 

P 

415+006 
415+0 07 

.. 1 • p J, I. c. . 

TPD ELY 

Si I 

ISE 

T WWDi,X3 

I MPURE, 0 

ALLOW MORE OPERATIONS 

SKIP IF NCT DELAYED 





O 

0 0 37 4 
00375 
00376 

Ux0U004b 
20 00 0 001 
17606000 

F 

P 

415+008. 

418 

419 


UJP 

LD A 

ANA 

'.T WW0‘ .... 

STATAB 

EREAD 6 IT+EWRITBIT 

Wt WAS DELAYEC, YXALL 

LOAD STATUS 




- 


~..00377 

0 040 0 

__0 0 401 . 

.03100 334. 

7720 0 010 
.010 00 445.. 

P... 

. p.. 

42 0 

421 

. . .-.42-2 __ 


A2J,N£ 

EXS 

.yj.p........ 

.TREGO.. 

103,SENSE 

.. TSTATUS ..-. 

JUMP FOR ERROR RECOVERY 

CHECK FOR FILE MARK 
__R g-T U R N . S T- A T U S . -O N L Y ... 





O * 

0040 2 
0040 3 

77202400 

01000267 

n / n n n .*i i > 

P 

423 

424 


EXS 

UJP 

2400B,SENSE 

ERREC 

IN te Swl\tV wwr^-I vw v lit 1 

CHECK FOR ERRORS 

TRY FOR RECOVERY 






U0404 

00405 

040UQuU0 

01000267 

P 

. 42 - 5 — - 

42 6 

.PAKrLAG.: 

>w ,v.,..>7-, V.V7- V 

ISE 

UJP 

I MPti K E, 0 

ERREC 

SKIP IF NC GHANNtL ERRORS 

TRY FOR RECOVERY 






o 

o 

o 

o 

o 


0 ! 

1 ; 0 

o 9 

o 8 


o s 


-X4 
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0 0406 
00407 
00410 
00411 
0 0 412 
00413 

0 0 414 
0 0 415 
0 0 416 
0 0 417 
0 0 420 
00421 
0 0 422 
0 0 423 
00424 
00425 
0 0 426 

.00427. 

0 0 43 0 
0 0431 
0 0432 
00433 
0 0 434 
00435 
0 043 6 
00437 
00440 
0 0 441 
0 0 442 
00443 
0 0 444 


00445. 

0 0 446 
0 0 447 
0045Q- 
0 0451 
0 045 2 
0 0 453 
00454 
0 0 455 
00456 
0 0457 
0 0 46 0 
00461 
00462 
0 0463 
00464 

.00465 

00466 
0 0 467 
0 0 470 
0 0471 
00472 
.00473 


426+003 ** * 

42 6+0 04.**.-. -..SECTION OF CODE TO.RETURN.STATUS.TO USER FRCGRAM.-._.-.—. * 

426+005 ** * 

W- V-*%■■>!-W W + W W * * WWU *■**■***■*■■>{■ **■ W -V-V * W-V-V- W V 1* W & WWW ww y-wv-w 


00406 P 
20000001 P 
1760 0400 

.147000-66. 

0460 0 0 00 
14700051 
1420 0445 
0 0 414 
43000054 
12077767 
14700000 
-0 3 60-0445- 
14600000 
51 07 7777 
42 00 0 0 44* 
43000045 
22000027 

42 0 0.QTT5Z. P 

14700000 
-4-2-466-04-4- 
14300432 
01077777 
40 Oii 0 014 
54100005 
20177777 

T4T0WO6. 

13077747 

-51-00-0-42-1 . 

4340 0070 
02500436 
4100 0 0 44* 
14700034 
01077777 


P 

P 

P 


00445 P 

-47-00-0 416 P- . 

2000Q001 P 
17620000 
-0460 0 000 
20077777 X 
77200040 
350 77777" 
77200004 
-04-0-0.0.4-57- 
35077777 
77200020 
-55077777 - X~ 
77 20 0 G10 
35077777 X 

"3 5 050 0 0 6.p" 

40 00 0006 P 

-47-0-0.00 0-1 .P 

14600001 
40 0U 00 03 P 
14 20 0 472~p- 
01000165 P 
20000006 P 
"04077777 X 


0.0.0 13 0 


“00344—0" 
00011 1 
00005 3 
"0GO12.2. 


0 0016 0 
4-0 041—0" 


429 

429+001 
42 2+002 
429+003 
42 9+004 
429+005 
42 9+ U06 
429+007 
429+008 

.429+0 0 9 

425+010 

-4244-041. 

429+012 
429+013 
- 42 5+644” 
429+015 
429+016 
~42"5+"047"" 
429+018 
42-9+0-49— 
429+020 
429+021 

.42 9+0 22. 

42 9+023 
429+024 

42 9+525 . 

429+026 

.45-9*627 . 

429+028 
429+029 
-4-55+630”’ 
42 9+ 0 3i 
429+032 

.¥25+633. 

429+034 
. 42.5*0 35. 

432 

433 

*43*4—— 

435 

436 

"437- 

438 

-4-39.... 

440 

441 

443 

444 ■ 

"445. 

446 

-.4-4.7. ___ 

448 

445 

44 5+001- 
449+002 
449+003 
.461- 


TPRELS EQU 

.....LDA 

ANA 

--- ENQ 

ASE 
ENQ 

.. ' -.ENT* 

TPRELS1 EQU 

SQCH 

... SHA. 

ERRCNT ENQ 

-----AQJ, GE- 

ENA 

OVA 

__ S . A . e . H .._ 

SQCH 

LACH 

-- ^ .... 

MTSTATUS ENQ 

...-. T .SHQ- 

ENI 

UJP 

LDI 

LDA 

. .ENT 

SHAQ 

-OVA- 

SQCH 
IJD 

———eetm— 
ENQ 
UJP 


T ST A TUS 


EQU 

.ST I.- 

LG A 
ANA 

“AS-5— 

LOA 

EXS 

.SSA. 

EXS 

.-UJP. 

SSA 

EXS 

~S-S*A~ 

EXS 
SSA 
SS"A~ 
ST A 
.ST I 
ENA 
STA 
ENI 
UJP 
LQA 

y.jp. 


STATAB 

READBIT 

h mt —.— 

o 

HBR* 

TSTATUSjX2 


MTFUN 

- 8 . 

IMPURE 
I ST A TUS 
0 

010 

“MTERR— 
MTERR+1 
TPI + 3 

MTUNIT. 

IMPURE 

- 1 - 2 —.-. 

*+2,X3 
0 CT PACK 
MTSTATP- 
TPI,XI 


TNUMLIST,X1 

67X1. 

-24 

DIO- 

T NUMP > XI 
*-3, XI 
-M'TER'R— 
MTERRL 
OPMSGX 


-ERRC N T , 0. 

STATAB 
S BINS IT 
“O—— 
8IT18 
403,SENSE 

TOD'S. 

4 ,SENSE 

V- ±7 

B IT2 3 
20B,SENSE 
~fPS“ 

108,SENSE 
FMR3IT 

TPRLNG.■.* 

TPRLNG 

-.SXAXAB,-0. 

ALCNT 

ERK 

-*'+2t'X*2— 
TGRID 
TPRLNG 
TXNE-- 


TO RELEASE UNIT 

GE T UN IT STATUS C F THIS CPERATICN 
CHECK FOR READ 

.THEN.ASSUME A.WRITE ....- 

SKIP IF NCT A READ 
CODE FOR A READ 


SAVE LAST TAPE OPERATION CODE 

A=0 IF.WRIXETA=I IF READ 

NUMBER OF ERRORS ON THIS FUNCTION 

JUMP IF.NC APPARENT ERRORS 

FOR DIVIDE 

CHANGE INTO 2 DECIMAL DIGITS 

SAVE FIRST DIGIT . 

AND SECOND DIGIT 

GET UNIT NUMBER FOR MESSAGE 

"AND.PLACE.INTC.TH E.MES S A GE... 

LAST STATUS TO G 

TO.UPPER.1-2.SITS--...-. 

RETURN ADDRESS 
CONVERT INTO SCO IN A 

PL ACE INTO MESSAGE. 

GET TAPE UNIT INDEX 

GET TAPE NUMBER ON THE DRIVE 

OUTPUT.7 DIGITS. 

DOWN FOR DIVIDE 

EXTRACT.A.DIGIT..-. 

OUTPUT THE OIGIT 

AND LOOP TO OUTPUT THE REST 

.MESSAGE**AGGRESS. 

LENGTH OF MESSAGE 
INFORM XE/S OF PROBLEM 


-CLEAR.ERROR CCU-NTER.BEFORE-.EXIT 

LEAVE BINARY INDICATOR 

BIT 18 SEZ BINARY RECORD PROCESSE 
CHECK FOR END OF TAPE 


SET 

CHE 

SET 


END.OF.DATA.IF.SO 

CK FOR WRITE ENABLE 


fp sit 


CHECK FOR LOAD 


POINT 

-SET-tOAO -POINT* ST ATUS.. 

CHECK FOR FILE MARK STATUS 

SET SIT IN IF SC 

SET.STA TUS.INTO.WORD.COUNT". 

I/T j | fiT itc 

EN T E R A L L OWED.PARITY.ERR OR S’” 

FIX UP COUNTER 

RETURN—ADDRESS.FROM.-SUBROUTINE 

CLEAR CONTROLLER AND DRIVE 
GET RECORD LENGTH AND STATUS 
"NORMAL.END. RETURN"........*. 
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...a 





461+004 

.....U n 1 + n II 5. 

XX XX-**** *>, 

X* 

Jf& _______ 

{. * * * * ** * * * * X X X **** ************************* *****X* ********** 

X 

TDTTMFI ID TQ PA 1 IPO LiUP.MA T A DP flPP P ATT HK THAT H H P P Kj AT T TP * 




CD " 




4 61 + 0 0 6 
461+007 

* * 

THE CHANNEL UP HAS BEEN 
THIS ALLOWS FOR CHECKING 

ACTIVE FOR ONE MINUTE 
_AND RECOVERY WHEN SOMEONE 

X 

* 



l ’g 

.;„3 

Q . 




....4bl + 0 0 8 

461+009 

^......kuws .utr in tL.trwuur.itit.i akl. .***.. 

** * 



00474 

....00475. 

02000476 
.01357750. 


461+011 

461+012 

...461+01 3. 

TPTIHRT 
.TPTIMF. 

VFD 

.DFC.. 

0 6/0 2,0 3/0,A 15/TPTIMEUP 

if AEnnn tt.mc pop cm t. mtupmcmt .n m. oi±nn . 

T A. 



.... q 

O 


0 0476 

P 

461+014 

461+015 

TPTIMEUP 

EQU 

* 





O. 

o ........... 

0 0 476 

0 0 477 
00500 

4730 0145' 
47000367 
1470 Q 0 21 

P.......... 

P 

..461+016 

461+017 

461+018 


ST I. 

STI 

ENQ 

R E r U R N, X 3 
TPINT1,X0 

H FAF 

.SAVE.THE.RETURN ADDRESS 

SAY NO TIME INTERRUPT 

SAY ABNORMAL CONDITION 




_eO 


.. 0 0501 

00502 
....0 050 3 

”14 60 0 0 or 

44000416 
..14700365. 

P 

D... 

.461+019. 

461+020 

...44l+{i?j_ 


ENA 

SWA 

._E.WX.__... 

1 

ERRCNT 

..TPTMTfi. X?. 

SAY ONE ERROR 

.... pi.Arp. 1(1 . .REXI j R K!.r f ..-......... 




.... 6 

o 

0 0504 

01000414 

P 

461+022 

461+023 


UJP 

I r x N r u • A (L 

TPRELSl 

GO WRITE MESSAGE FIRST 




O 

„ ;MWS 0 ?- 

o. 

0 0505 

0 0505 
20000475 

P 

P 

4 bT+ 0 2 4 
461+025 
461+026 

TPTIMUPI 

EQU 

LOA 

* 

TPTIME 

GET THE TIME LIMIT 




__ ,.o 


0 0 506 

21000474 

? . 

461+027 


THU 

TPTIHRT 







0 0507 

00777777 

X 

461+028 


RTJ 

T IMSET 







... J0.510. 

4720 0 367 

D 

....4 61 + 0 29. 


_sti_ 

_T PINT! t X2.~ 

.... Ann .SAY-.XT.IS.A. XXMED INTERRURT 




.. z i . 

O “ 

0 0511 

0120 0 000 


461+030 


UJP 

0 , X2 

RETURN TO CALLER 




o 





464 


END 








NO LINES WITH ERRORS ^ 


o .^ r - .".■...".■..".;.~.. : . : ... * ..*...^...^... t ... w .:.r. M .....*."... : ...•..o 

o.:________..._____________ l _______...___i__i_._._....o 



o 


o 
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PAGE 


1 


1 PHNOLR 


ALCNT 
8 INDEN 
8IT17. 


0000 T. 

00002P 


ERE AO... 

EREADBIT 

ERK 

ERRCNT 
ERREC 
EWRIT BIT 

FINISH. 

FLAGS 

FMROIT. 

FUNCTION 

GIVINT 

-f-MPO-RE— 


10.. 

10 CL 

I0CL8IT 

ISUF 

LPB 

MPCHK 

MTCON.. 

MTERR 

MTERRL 

MTFUN 

MTSTATP 

MTSTATUS 

MTUNIT 

NEWCLK. 

NIRIN 

.OCTPACK. 

OPMSG X 
PARFLAG 
PFPA. 


34+1 

60 

. 20 


.61 00G03F. 

94 00022P 
350.0 0 3 01P 


335+1 00343P 
310 00250P 


8IT18 

3IT20 

X 

X 


21 

22 

435 
3 8 

0 0 4 51P 
00000P 



a 1 121 

8 IT 2 2 

3IT23 

X 

X 

X 


.23. 

24 

25 

. 3 7 

41 
44 0 

OOO 0 OP 
OOOOOP 

0 04 56P 



CHANINT 
CHBUF 
CHTRU3. 


00225?. 

00007P 
O0234P. 

: ..284. 

66 

.291. 

230 
375 
.231 + 2 

0 0155P. 

0 0 3 30 P 

00 2 23?. 

. 2 86 

375 

002 27 P 
003 30 P 

CLOCK 

CONNECT 

X 

... \/ . 

00022 

36 

26 

114 

229 

0 0 U 46 P 

0 0154 P 

175 

_ t o n i 9.7 

00124P 

U 1 U 

OENTAB 

DINT 

X 

0 0 01 OP 
07773 

2 5+ 1 
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